PRESHIFT-TABLE 
GRAPHICS ON 

YOUR APPLE 



This fast assembly-language routine allows you 
to move rectangular images quickly to any point 
on the Apple high-resolution graphics screen 



by Bill Budge, 

with Gregg Williams 

and Rob Moore 

lEditor's note: This article was a col- 
laborative effort. Bill Budge shared his im- 
plementation of preshift-table graphics with 
us and helped Rob Moore and me with the 
article itself. Rob wrote the assembly-language 
subroutine, and I wrote the article tex.t and 
BASIC program G.W.] 



In microcomputer graphics, speed 
is always of the essence— we are 
always trying to get the same pro- 
cessor to do more work than it's 
done before In creating Mousepaint (a 
drawing program that uses icons, win- 
dows, and Apple's new mouse). Bill 
Budge devised a technique that 
simplifies moving rectangular blocks of 
pixels on the Apple II high-resolution 
graphics screen. The cost is a slight loss 
in speed and an overhead of about 3K 
bytes of memory, but the versatility of 
this routine certainly justifies the 
expense. 

Expressed simply Budge's method 
(called preshift-table lookup) uses a short 
assembly-language routine to access a 
large table that lists all the possible 
shifted results for all possible byte 
values. This saves time by exchanging 
a certain amount of calculation, loop- 
ing, and shifting with a single table 
lookup, a logical OR operation, and 
some occasional set-up instructions. 

Apple II Hi-Res Graphics 

The Apple high-resolution graphics 
page is organized as 192 lines of 280 
dots each; you will have this resolution 
available to you if you view the page on 
a monochrome display. If you use a col- 
or display, certain two-dot patterns will 
appear as a single color dot; this means 
that your effective resolution for color 



graphics is 140 by 192 dots. The high- 
resolution page can display six colors: 
black, white, violet, green.-orange, and 
blue Each line of graphics occupies 40 
bytes in memory; given 280 dots per 
line, this means that each byte converts 
to 280/40 (or 7) dots per byte. 

The fact that each byte of memory 
translates to 7 (not 8) dots— 3 x h if you're 
talking about high-resolution color— is 
one of the many subtleties that charac- 
terize Apple graphics. Speaking in terms 
of the color display of dots within a 
byte, you can display black, white, and 
one of two sets of two colors each— 
green/violet or orange/blue The com- 
puter interprets the most significant bit 
of a byte (the only one that doesn't 
translate to a dot) as a color bit; when 
this bit is off, you can get green/violet, 
and when it is on, you can get orange/ 
blue. Ttoo adjacent bits on— anywhere in 
the byte— make a white dot appear. TWo 
adjacent bits off make a black dot. A 

{continued) 

Bill Budge is well-known for his graphics work 
on the Apple II; his best-known products are 
Raster Blaster (the first pinball game of its 
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Paint {supplied with the Apple II mouse). 
Gregg Williams is a senior technical editor at 
BYTE. Rob Moore is a hardware designer and 
a frequent contributor to BYTE. They can be 
reached at POB 372, Hancock, NH 03449. 
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single even bit on (with both adjacent 
bits off) makes a violet or blue dot, 
depending on the color bit. Similarly, a 
single odd bit on makes a green or 
orange dot. See figure 1 for details. 
(Because the even/odd position of a bit 
within a byte determines its color, im- 
ages to be viewed on a color display 
must move an even number of bits at 
a time. If they don't, they will alternate 
between the two color sets every move) 
One final detail: if you consider the 
byte as a binary number, you must strip 
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Figure 1: Translating memory bits to 
graphics on the Apple high-resolution 
graphics page. Only 7 of the 8 bits in a 
byte become dots on the high-resolution 
screen. Bit 7 determines what colors can 
appear in that byte. 




Figure 2: The relationship between bits 
and pixels. The Apple II reverses the seven 
low-order bits of a byte before displaying 
them on the high-resolution screen— that is, 
it displays the bits right to left. 



off the most significant bit and reverse 
the order of the remaining bits before 
you put them on the high-resolution 
screen— in other words, the rightmost 
bit in the byte becomes the leftmost dot 
on screen, and vice versa. Figure 2 
shows this relationship. In this article, we 
will be shifting rectangular blocks of 
dots to the right. Because of the above 
relationship, this means we will be shift- 
ing bits to the left. Keep the following 
sentence in mind: to shift dots right, shift 
bits left. 

Finally, we get to the overall makeup 
of the high-resolution screen. With 
seven dots per byte, 40 consecutive 
bytes become 140 color dots (or 280 
monochrome dots). But do the next 40 
bytes make up the next row of dots? Un- 
fortunately, no— they are the 65th row 
As you can see from figure 3, con- 
secutive rows of dots are not 40 bytes 
apart. The scheme is much more com- 
plex than figure 3 shows, but that is of 
little interest to most programmers. 
Because speed is of the essence in 
graphics work, most graphics routines 
look up the address of the first byte in 
a row from a table of 192 values instead 
of having the computer calculate it 
while it is doing the graphics. Once we 
create that table, as the program in 
listing 1 does, the complexity of the 



high-resolution screen layout becomes 
irrelevant. 

preshifttable lookup vs. 
Preshifted Shapes 

Most people who do high-performance 
work with Apple II graphics know about 
preshifted shapes, a graphics method that 
stores seven versions of a given image 
and quickly looks up the appropriate 
one. (For more details, see the text box 
"What Are Preshifted Shapes?" on page 
A26.) Preshifted shapes have one main 
use: to allow rapid animation of small 
shapes that move only several dots at 
a time. Budge's needs were different: he 
had several windows that he had to be 
able to move quickly. Such windows are 
too large to have seven versions of (or 
modify seven versions of). In addition, 
their expected movements were large 
jumps across the screen, not continuous 
movement. 

Shifting an image does not change it 
visibly, but it does change how that im- 
age is represented in byte-sized pieces. 
For example, the simple two-byte image 
in figure 4a changes significantly when 
shifted right three dots— what's more, 
we now need another byte to store it 
in! Notice that some dots stay in the 
same seven-dot group (these are called 
"shiftstay" dots) and that others move] 
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Figure 3: The Apple II high-resolution graphics page. Each line of dots is given by a 
contiguous 40-byte area in memory. Successive lines are usually separated by 1024 
bytes: every eighth line [lines 8, 16, and so on) has an address 7040 bytes less than 
the start of the previous line. 
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to the next seven-dot group to the right 
(these are the "shiftout" dots). If you 
understand this figure and remember 
that the bits corresponding to these dots 
are stored in reverse within each seven- 
dot group (byte), then you will under- 
stand the essence of this algorithm: to 
move a single-line image to the right we 
split each byte and combine the shift- 
stay bits of one byte with the shiftout 
bits of the previous byte. Figure 4a 
shows how simple it is to shift an image 
three dots to the right. Unfortunately, 
when we start looking at manipulating 
the bits themselves (which, within a 
byte, are reversed from the way they are 
displayed on the screen), things get 
more complicated (see figure 4 b). Here 
is one recipe for manually making the 
shift (notice that we start with the 
rightmost byte and work our way left): 

1. Shift the second source byte left 
three bits and put the three over- 
flow bits into the lower half of the 
third destination byte. Hold the 
right four bits (which have been 
shifted left three bits) somewhere. 

2. Shift the first source byte left 
three bits. The three overflow bits 
and the four leftover bits from 
step 1 join like two adjacent 
pieces of a jigsaw puzzle. "Fit" 
them together (using a logical OR 
instruction) and save them in the 
second destination byte. 

3. Place the remaining bits of the 
first source byte in the first 
destination byte. 

The 6502 microprocessor inside the 
Apple can shift only one bit at a time. 
Therefore, we would have to write a 
loop of assembly-language code every 
time we wanted to shift n bits. Such a 
routine would be very slow and would 
be slower as n gets larger. 

Enter the Preshift Tables 

Bit shifts take too long to calculate, so 
why don't we precalculate everything 
and do a simple table lookup instead? 
W1I need two tables: one for the bits 
that are shifted out of the byte (which 
111 call the shiftout value) and another for 
the bits that remain in the byte, but in 
their new, shifted position (the shiftstay 
value). A byte has 256 possible values, 
so each table will take up 2 56 bytes, for 
a total of 512 bytes for both tables. We 
will need these tables for shifts of one 



through six bits; this takes up a total of 
3K bytes of table space, and this over- 
head is constant whether you have one 
image to move or a hundred. 

(For this article, we've added shiftout 
and shiftstay tables for a shift of zero 
bits. This adds an extra 0.5K bytes of 
tables but greatly simplifies the assem- 
bly-language routine needed.) 

Figure 5 shows how the shiftout and 
shiftstay values are created for a given 
byte, and listings 1 and 2 create the re- 



quired preshift tables. The tables deal 
with shifting dots right, so the bits in a 
byte are shifted left (remember that bits 
reverse their positions when they 
become dots on the high-resolution 
screen— see figure 2). 

The middle line shows the same byte, 
binary value 11101010, as it is shifted 
two, three, and four dots (bits). The line 
above it shows the bits that go into the 
shiftout byte and the line below it, the 

[continued] 
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Figure 4: Moving an image. VJhen a two-byte image is moved three dots to the right 
(figure 4a), it occupies an extra byte, and the values of the bytes all change in a complex 
way. Figure Ab shows the bit patterns underlying the original and shifted images {for 
simplicity, we are ignoring the color bits in each byte). To shift the image right 3 bits, we 
shift each byte to the left 3 bits and rearrange the pieces in the order shown. 
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Figure 5: Creating shiftout bytes (top) and shiftstay bytes [bottom) from an arbitrary byte 
{center). This figure shows the same byte being shifted two, three, and four bits. Note that 
the color bit (the leftmost one. outside the boxes) remains with the shiftstay byte. 
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shiftstay byte. Notice that the most 
significant (color) bit, which is not in- 
cluded in the shift, stays with the shift- 
stay byte. The program in listing 2 



makes tables of the shiftout and shift- 
stay value for each byte (values from 
to 255) and for each possible value for 
number of bits shifted (zero to six). 



What Are 
Preshifted 
Shapes? 



The preshifted-shape method is at 
the root of the most common 
forms of graphics animation for the 
Apple II. It is yet another application of 
the maxim that says, "lb make graphics 
faster, calculate as much as possible in 
advance, store the results in tables, and 
do table lookups instead of calculation 
during the animation process." lb shift a 
shape several dots right or left during the 
animation (or "on-the-fly," as we call it) 
would involve lots of byte splitting and 
recombining and would significantly slow 
the animation. Instead, we keep seven 
versions of the shape in memory and 
select the appropriate one to be 'pasted 
onto" the graphics screen in real time. 
(We want to deal with whole bytes only, 
and we need seven versions to take care 
of all the possible positions of the shape j 
within byte boundaries.) 

In addition, by making slight changes 
to each of the seven shapes, we can 
achieve 'internal animation"— animation 
of the shape itself as it moves hori- 
zontally—at no extra cost. Figure 1 shows 
a monochrome shape with internal ani- 
mation in its seven preshifted versions. 
Preshifted shapes are the latest word 
in fast animation. Unfortunately, they take 
up a lot of room, and it is often inconve- 
nient to maintain a large inventory of 
such shapes, especially when they are 
subject to periodic revisions (Utility pack- 
ages like Penguin Software's Graphics 
Magician can help with such tasks.) For 
example, an image 10 dots square (which 
is actually 5 dots square in color) must 
be shifted within an image area 10 lines 
high by 3 bytes wide (a lOdot image that 
begins on the last dot in a byte entfs in 
the second dot of the third byte.) This is 
30 bytes per version, or 2 10 bytes for the 
entire preshifted shape table— all for an 
image about the size of a fingernail! In 
some situations, of course, the method 
described in this article is a space-saving 
alternative. —Gregg Williams 




Figure I: Apple II preshifted shapes. 
Depending on the location of the shape 
within a 2~byt&wide area, a program 
can "paste'' one of the above seven 
images into that area. \n addition, when 
the seven shapes are drawn into the 
same area in order, the "A" appears to 
move to the right, and a little dot rolls 
around the interior cavity of the "A." 
This effect is called internal animation. 



The problem of moving a rectangular 
image is reduced to that of moving a 
single line of the image, which in turn 
is reduced to that of moving a single 
byte of the image between one and six 
dots (a move of, say, three dots and a 
move of ten are essentially the same 
because the extra seven dots— one 
byte— can be taken care of by adding 
one to the destination-byte pointer). 

PRESHIFTING AN IMAGE LINE 

You may have noticed that the shiftout 
values are right-justified and the shift- 
stay values are left-justified within the 
low 7 bits of the byte. This allows the 
computer to combine the two image 
fragments correctly. Figure 6 shows how 
the core routine (only 23 bytes) ac- 
complishes the task. In particular, figure 
6 shows how the shiftstay bits from one 
byte and the shiftout bits from the byte 
before it create a new destination byte. 

Bill Budge did not get this code den- 
sity without pulling some tricks. In line 
1, the address $mmmm is the first byte 
of the one video line of image that this 
routine manipulates. The address SmkOO 
is the first byte of the shiftout table be- 
ing used, and $pp00 is the first byte of 
the shiftstay table. (Remember that the 
tables must begin on page boundaries- 
this explains the double zeros in both 
addresses.) A driver program (discussed 
below) must change the first address for 
each new line of image to be processed 
and must change the last two addresses 
only at the beginning of a new shift-rec- 
tangular-image operation. Yes, this is 
self-modifying code. It works, and it is 
necessary to get the speed Budge 
wanted out of this routine. 

The calling program must supply this 
routine with two other values: the y 
register must contain the width of the 
image in bytes, and the accumulator (A) 
must contain zero since there is no 
previous byte that has left shiftstay bits 
behind. 

preshifting a rectangular 
Image 

Given the appropriate shiftout and shift- 
stay tables (which allow you to split an 
arbitrary byte by doing two table look- 
ups instead of n shift operations), the 
routine in figure 6 will shift one line of 
dots and put the result in a buffer area, 
lb make this routine useful, you must 
surround it with a driver routine that 
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I shifts each line of the rectangular image 

| and does the necessary housekeeping. 

: Many such routines are possible de- 
pending on the implementation 
needed, lb illustrate this routine, let's 
assume that the program has access to 
an area of memory with image data as 
specified in table 1. For each line of the 
image, the driver routine will modify the 
addresses within the inner loop to point 
to the right areas, shift a line of the im- 
age to the buffer, then transfer the buf- 
fer to the correct screen position one 
byte at a time (see figure 7). 

Listing 3 is the final assembly-lan- 
guage subroutine for shifting a block im- 
age via the preshift tables and moving 
it to the screen as described above. The 
equate statements at the top of the 
listing show the positions of needed 
tables and variables. TWo tables not yet 
discussed are the XDIV7 and XMOD7 
tables. Because the Apple stores 7 dots 
per byte, the algorithm needs to divide 
single-byte numbers by 7 and use either 
the quotient or remainder. At the ex- 
pense of 512 bytes (2 56 bytes per 
table), we can calculate either quantity 
as quickly as an indexed load instruc- 
tion: the nth bytes of the XDIV7 and 
XMOD7 tables are the integer quotient 
and remainder, respectively, of nil. 
Listing 4 creates these tables for later 
use and saves them under the name 
DIV7 TABLE. 

The BASIC program of listing 5 loads 
the preshift. DIV7, and HIRES1 tables, 
along with the table for the image to be 
moved into a single binary file called 
TABLPAK. The image that the demon- 
stration program is going to move an 
arrow pointing diagonally up, takes the 
form given in table 1 and can be any 
size. You can change it to any image you 
wish, as long as the table starts at ad- 
dress 20864 (5180 hexadecimal). When 
translating a picture of the image to 
hexadecimal values, remember that the 
bottom 7 bits of a byte are displayed 
reversed from the way they are stored; 
for example, to illuminate the rightmost 

• dot of a seven-dot byte, the byte 
needed is a 64 (binary 01000000) or a 
192 (binary 11000000), not 1 (binary 
00000001). 

IhE Demo Program 

j: The BASIC program of listing 6 loads in 
\ the TABLRAK package of tables and the 
i ■ {text continued on page A132) 



Listing 1: The HIRES1 program creates the binary file HIRES1 TABLE. The first 
192 bytes of the file contain the low bytes of the starting addresses of line n of high- 
resolution page 1; the second 192 bytes of the file contain the high bytes of the same 
addresses. 



]LIST 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

195 

197 

200 

210 

220 

230 

235 

236 

237 

240 

250 

260 

263 

266 

269 

272 

275 

277 

278 

279 

280 

290 

300 

310 

313 

320 

325 

330 

340 

353 

356 

359 

362 

366 

370 

375 

380 

384 

385 

386 

388 

390 

392 

393 

394 

400 

410 

420 

430 

440 

450 

455 

460 



HIRES1 PROGRAM 

CREATES TABLE OF ADDRESSES 
OF FIRST BYTE IN EACH LINE 
OF HI-RES PAGE 1 

BY GREGG WILLIAMS 
22 APR 84 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM 

REM 

T2BLBGN « 16384 

REM —BEGINNING OF TABLE AS 

REM —STORED IN MEMORY 

REM 

TBLWDTH . 192 

REM —WIDTH OF EACH TABLE 

REM 

HI1BGN - 8192 

REM —ADDRESS OF BEGINNING 

REM —OF HIRES PAGE 1 

REM 

ADDR « T2BLBGN 

REM —THIS PGM CALCULATES 

REM —ADDRESSES IN ASCENDING 

REM —ORDER; ADDR HOLDS THE 

REM —ADDRESS OF THE NEXT 

REM —TABLE ELEMENT TO BE 

REM —FILLED 

REM 

REM 

REM 

REM 

HOME 

FOR I 

: FOR J = TO 7 

:: FOR K * TO 7 

;::VL * HI1BGN + 40 

:::VHI - INT (VL / 256) 

::;V2LOW = VL - 256 

::: POKE ADDR.V2LOW 

:;: POKE ADDR + TBLWDTH,VHI 

:::ADDR - ADDR + 1 

:: NEXT K 

:: PRINT "."; 

: NEXT J 

NEXT I 

PRINT 

REM 

REM —ABOVE ALGORITHM 

REM —DERIVED FROM TABLES 

REM —IN APPLE REFERENCE 

REM —MANUAL 

REM 

REM 

REM 

REM —SAVE FILE TO DISK 

REM 

PRINT CHR$ (4);"BSAVE HIRES1 TABLE,A";T2BLBGN;",L384" 

REM 

PRINT : PRINT 'TABLE SAVED TO DISK" 

END 



MAIN LOOP OF PGM 

PRINT "CREATING HIRES1 TABLE' 
0TO2 



I + 128 * J + 1024 ' K 



VHI 



[listings continued on page A28) 
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Listing 2: The Preshift program creates fourteen 256-byte tables, which are saved as the binary file PRESHIFT TABLE. 
The first seven are the shiftout tables for through 6 dots, while the last seven are the corresponding shiftstay tables. 



]LIST 

100 REM 
110 REM 
120 REM 
125 REM 
130 REM 
135 REM 
140 REM 
145 REM 
150 REM 
155 REM 
157 REM 
160 REM 
170 REM 
180 REM 



CREATE-PRESHIFT- 
TABLES PROGRAM 

CREATES SHIFTOUT AND 
SHIFTSTAY TABLES FOR 
THROUGH 6 DOTS 

BY GREGG WILLIAMS, 
17 APR 84 



INITIALIZATION OF 
CONSTANTS 



190 REM 

200 REM 

210 BGNTBL - 30720 

220 REM —ADDRESS OF START OF 

230 REM —TABLE; MUST BE EVENLY 

240 REM —DIVISIBLE BY 256 

250 REM 

260 BININCR - 7 * 256 

270 REM —DISTANCE FROM BEGINNING 

280 REM —OF SHIFTOUT (SOUT) 

283 REM —TO SHIFTSTAY(SSTAY) 

286 REM —TABLES 

290 REM 

300 TBLWDTH - 256 

305 REM —DISTANCE BETWEEN 

310 REM —ANY TWO TABLES 

315 REM 

320 C1ZMAXSHF - 6 

340 C2MAXBYTEVL - 255 

360 REM 

380 REM 

400 REM 

420 REM MAIN LOOP 

440 REM 

450 HOME : PRINT "CREATING PRESHIFT TABLE (THIS WILL TAKE 

SEVERAL MINUTES) "; 
460 FOR SHF . TO C1MAXSHF 
480 :CURRTBL - BGNTBL + SHF * TBLWDTH 
500 : FOR BYTE - TO C2MAXBYTEVL 
520 :: GOSUB 1000 
540 REM —CALCULATE SHIFTOUT 
560 REM — & SHIFTSTAY VALUES 
580 REM —FROM SHF AND BYTE 
620 REM 

640 :: POKE CURRTBL + BYTE.SSTAY 
660 :: POKE CURRTBL + BYTE + BIGINCR.SOUT 
680 REM —STORE VALUES IN 
700 REM —TABLES 
720 REM 
725 :: PRINT"."; 
740 : NEXT BYTE 
760 NEXT SHF 
770 PRINT 
775 REM 

780 REM 

800 REM 

820 REM 

840 REM 

860 REM 

880 PRINT CHR$ (4);"BSAVE PRESHIFT TABLE,A";BGNTBL;",L3584" 

890 PRINT : PRINT 'TABLE SAVED TO DISK" 



SAVE TABLES AS ONE 
LARGE DISK FILE 



END OF PROGRAM 



900 REM 
910 REM 
915 REM 
920 END 

960 REM 

980 REM 

985 REM —SUBROUTINE TO SPLIT 

987 REM —AN ARBITRARY 8-BIT 

989 REM —VALUE INTO ITS 

991 REM —COMPONENTS; SEE 

993 REM —TEXT FOR DETAILS 

995 REM 

1000 IF SHF = THEN SOUT - 0:SSTAY = BYTE: GOTO 1380 

1005 REM 

1010 REM —THE FOLLOWING CODE IS 

1012 REM —DONE IFF SHF>0 

1015 C3SCALEOUT - 2 * (7 - SHF) 

1020 C4SCALNW - 2 " SHF 

1030 BSVE ~ BYTE 

1040 REM 

1060 IF BYTE > « 128 THEN SIGNBIT 

1140 
1080 REM (ELSE IF BYTE < 128) 
1100 SIGNBIT - 

1110 REM (AND BYTE UNCHANGED 
1120 REM 

1140 SOUT - INT (BYTE / C3SCALEOUT) 
1160 REM —FIND SHIFTOUT BITS 
1180 REM —BY CUTTING OFF RIGHT- 
1200 REM —MOST (7-SHF) BITS 
1210 REM 
1220 SSTAY - 128 * SIGNBIT + (BYTE - SOUT * C3SCALEOUT) 

C4SCALNW 
1240 REM 
1260 BYTE » BSVE 
1280 REM —RESTORE ORIGINAL 
1300 REM —VALUE OF BYTE 
1320 REM 

1340 REM END SUBROUTINE 
1360 REM 
1380 RETURN 



1:BYTE = BYTE - 128: GOTO 
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BYTE NUMBER 

ORIGINAL IMAGE 

(BEING SHIFTED 
5 BITS LEFT) 

SH1FTOUT BITS 



SHIFTSTAY BITS 



RESULT (USING 
BITWISE Oh' 
OPERATION) 
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L0A $ppOO, X POiNTCS TO S«lSTrr£V TABLE 

BPL SHIFTIT 

STA BUFFER 
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© 
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SHIFTSTAY B<TS FROM PREVIOUS LOOP ARE IN & REGISTER.: 



□ 



1 i X REGISTER IS LOADED WITH CURRENT IMAGE 3YT£. 



> IS USED AS i±U INDEX INTO THE SHIFTOUT TABLE. 
GIVING THE CORRECT SHIFTOUT VALUE. 



m 



2 | THc TWO IMAGE HALVES ARE OR'D INTO THE FINAL 
DESTINATION IMAGE 9Y7£ . 



El 




STORE TH~ RESULT IN THE BUFFER AREA 



4 i USING X. LOAD A. WITH SHIFTSTAY BITS FOR THE KXXT ITERATION 
OF LOOP. 



□ 



5 J DECREMENTING THE Y REGISTER SETS IT UP TO ACCESS 
THE NEXT BYTE IN THE IMAGE DUS^S THE NEXT LOOP. 



□ 



ENTIRE IMAGE HAS NOT BEEN MOVED (Y>0), GO TO 



CD 



£i.S£ STORE FINAL SHIFTSTAY BITS INTO BUFFER 



NOTES: 1. IMAGE IS BEING SHIFTED RIGHT FIVE DOTS (BYTES SHIFTED LEFT FIVE BITS). 

£ SHIFTSTAY BITS FROM PREVIOUS BYTE A&D SHIFTOUT BITS FROM CURRENT 
BYTL COMBINh TO MAKE NEW CURRENT BYTE . 



Figure 6: The basic presfiifMable lookup routine. The top area shows how the code creates 
a single result byte, the middle area is the actual code, and the bottom area is a commen- 
tary. The numbers in the circles and squares relate events to lines of code. Hexadecimal 
mmmm points to the first byte of the image. The hexadecimal addresses nnOO and ppOO 
point to the proper shiftout and shiftstay tables, respectively. At the beginning of the routine, 
the accumulator contains zero and the y register contains the number of bytes in the line. 



Love Apples? 




Join the club. 

We're the Apple PugetSound Program 
Library Exchange, and we're the largest, 
oldest, and most knowledgeable user 
group in the world. We support all the 
Apples, and all user levels, from the 
beginner to the seasoned program 
author. A membership in A.P.RL.E. will 
provide you with vital support, like our 
international hotline service for im- 
mediate technical evaluation of your 
problem . . . our international magazine, 
Call— A.P.P.L.E., and signficant dis- 
counts on our world famous software, 
plus great hardware prices. 

Write today for a sample copy of our pub- 
lication, product catalog, and member- 
ship application, or fill out the enroll- 
ment coupon below. 



A.P.P.L.E. 

pioneering Apple computing 




since 1978. 

Mail to: 

A.P.P.L.E. 

21246-68thAve.S. 

Kent, WA 98032 

(206) 872-2245 

or call our toll-free number 

1-800-426-3667 

(24 Hrs. Orders Only) 

□ MEMBERSHIP $26 one-time 
application fee + S25 first year 
dues. $5 1 

D FREE INFO + Call— A.P.P.L.E. 
Please send free information 

Name 



Address 

City 

State 

Phone *_ 



Zip 



M/C VISA # 
Exp. Date 



Additional foreign postage required 
for membership outside the U.S. 



Join Now and Receive 
10 FREE Diskettes! 



{listings continued on page A127) 
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Apple II, II+, He, lie, III, Lisa, and Macintosh are all registered 
trademarks of Apple Computer Inc. 



PRESHIFT-TABLE GRAPHICS 



{continued from page A29} 



Listing 3: The Shiftline routine. This 6502 assembly-language routine shifts one 
line of a video image as described in figure 7. We used the Apple DOS Tool Kit 
assembler to create the object-code file, which is named SHIFTLINE 
ROUTINE.OBIO. 



SOURCE FILE: SHIFTLINE ROUTINE 

NEXT OBJECT FILE NAME IS SHIFTLINE ROUTINE.OBJO 

1 ORG $5210 

2 

PRESHIFT GRAPHICS ROUTINE 
BY ROB MOORE & BILL BUDGE 



5210 
5210 
5210 
5210 
5210 



5210: 

0040: 

5210: 

5210: 

5210: 

4000: 

4700: 

4E00: 

4F00: 

5000: 

50CO: 

5210: 

5210: 

5210: 

5210: 

5210: 

5202: 

5203: 

5205: 

5206: 

5210: 

5210: 

5210: 

5210: 

5210: 

5210:8E E9 52 

5213:AD 06 52 

5216:18 

5217:6D 00 52 

521A;8D E1 52 

521D: 

521D:AE 05 52 

5220: BD 00 4E 

5223:8D E2 52 

5226: 

5226: BC 00 4F 

5229: B9 DA 52 

522C:8D E3 52 

522F: 

522F:98 

5230:18 

5231 :69 40 

5233:8D 8A 52 

5236: 

5236:69 07 

5238:8D 84 52 

523B: 

523B:98 

523C:18 

523D:6D 01 52 

5240:AA 

5241 :BD 00 4E 

5244:8D E5 52 

5247: 

5247:BC 00 4F 



7. 
8 
9 
10 
11 
12 
13 
14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34. 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 



BASE1 EQU $40 

LOOKUP TABLES 

SHFTSTAY EQU $4000 
SHIFTOUT EQU $4700 
XDIV7 EQU $4E00 
XMOD7 EQU $4F00 
ROWTBL EQU $5000 
ROWTBH EDU $50C0 



; BASE PAGE ROW ADDR POINTER 



SHIFTOUT TABLES 

SHIFT TABLES 

INDEX DIV 7 

INDEX MOD 7 

SCREEN ROW ADDR LO-BYTES 

SCREEN ROW ADDR HI-BYTES 



IMAGE DEFINITION PARAMETERS - SET BY .USER 



IROWS EQU 
(DOTS EQU 
IBWIDTH EQU 
IBITS EQU 
X1 EQU 

Y1 EQU 



$5200 
$5201 
$5202 
$5203 
$5205 
$5206 



# OF ROWS - 1 
DOT WIDTH -1 
IMAGE BYTE WIDTH 
ADDR OF IMAGE DATA 
IMAGE LEFT X-COORD 
IMAGE TOP Y-COORD 



FIRST, SET UP THE VARIOUS PARAMETERS TO PREPARE 
FOR THE IMAGE DRAW. 



DRAWIMAGE STX XSAVE 

LDA Y1 
CLC 

ADC IROWS 

STA Y2 

LDX X1 

LDA XDIV7,X 

STA LBYTE 

LDY XMOD7.X 

LDA LMASKS.Y 

STA LMASK 

TYA 

CLC 

ADC #< SHFTSTAY 

STA PATCH3 

ADC #7 

STA PATCH2 

TYA 

CLC 

ADC IDOTS 

TAX 

LDA XDIV7.X 

STA SBWIDTH 

LDY XMOD7.X 



SAVE BASIC X-REG 
IMAGE TOP ROW # 

+ # OF ROWS - 1 
= BOTTOM ROW # 

IMAGE LEFT X-COORD 
DIVIDED BY 7 

- IMAGE LEFT BYTE # 

IMAGE LEFT BIT # 
INDEXES LMASK TABLE FOR 
IMAGE LEFT BIT MASK 

IMAGE LEFT BIT # 

+ SHIFT TABLES ADDRESS 

* 256 

TO SHIFT PATCH 

OFFSET TO SHIFTOUT TABLES 
SETS UP SHIFTOUT PATCH 

IMAGE LEFT BIT # 

+ IMAGE DOT WIDTH 

DIVIDED BY 7 

- SHIFTED DATA BYTE WIDTH 



RIGHT EDGE BIT # 



[continued) 



desire a rose 

Than wish a snow in May's 
new fangled mirth 

But iike of each thing 
that in season grows 

King Lear 




Mac Inker 

A Gift For Christmas 
A Gift For All Seasons 

If Shakespeare had had a word pro- 
cessor he would have consumed about 
25 cartridges to run a first draft of his 
works. At an average of $10/cartridge 
the cost is $250. With MAC INKER he 
would use one cartridge, his total would 
be 50 cents in ink and his print-out 
quality would be much improved. 

MAC INKER is very simple to use and 
automatic. Average ink cost/re -inking is 
5 cents. We support 535 printers and we 
have 20,000 units in the field, in the US 
and in 5 continents. 

MAC INKER, a gift for Christmas, that 
will last for years in many seasons to 
come. $54.95+ 




MacSwitch 

Choose also our popular MAC SWITCH, 
serial or parallel switch - the ideal com- 
panion for the user who has 2 printers or 
2 microcomputers or both. $99*00 




Order toll free 1-800-547-3303 
or ask for free brochure 

Computer Friends 

6415 S.W. Canyon Court 
Suite #10 

Portland, Oregon 97221 
(503) 297-2321 
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Apple II + Paper Tape I/O Is This Easy 

10101011010001010:.:.:.:.::.::.:.:.::- 
0101010101 001 0100 .:.:.:.:.::.:..:.::. 
One minute you're without, the next you're 
up and running! Just plug Into your APPLE 
II PLUS. A neat and complete package. 

• Model 600-1 Punch — 50cps, rugged 

• Model 605 Reader — 150cps 

• Parallel Interface Board/Cable 

• Data Handling Program 
Code conversion available. TRS-80 pack- 
age soon. ADDMASTER CORP. 416 Juni- 
pero Serra Dr., San Gabriel, CA 91776 
213/285-1121. ^___ 



Orcde 661 on inquiry card. 




Circle 671 on inquiry card. 



RGB-APPLE IIC 

The Colormaster IIC RGB Video Interface 

Enjoy the brilliant, crisp, vivid displays of color 
graphics and text that are obtainable from the 
Apple IIC Computer when used with the Telemax 
Colormaster IIC. Features: A stand alone module, 
one end plugs into the Apple IIC Video Port, the 
other end plugs into your RGB Monitor, 1 4 combin- 
ations of foreground and background colors in text 
mode are user selectable. Text mode enhance- 
ment circuits improve resolution and readability of 
80 column displays. Operation is software inde- 
pendent, A 3,5 ft monitor cable is supplied. Comes 
ready to operate, with complete instructions. 
(Specify make and model monitor.) $199. RGB 
Video Boards are also available for Apple ME, II Ht & 
Franklin ACE 1 000, 1 200, all revisions. Apple: The 
Colormaster, $139.; The Kaleidoscope, $199. 
Franklin: Colormaster,$169.;Kaleidoscope,$219„ 
switchplate option $30. For further information, 
contact your computer dealer/distributor or: 
TELEMAX, INC. 
Computer & Video Products 
P.O. Box 339 • Warrington, PA 18976 

(215)343-3000 

Apple is the registered trademark of Apple 
Computer, Inc. 
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Circle 698 on inquiry card 



524A:B9 D3 52 


62 




LDA RMASKS.Y 


INDEX RMASKS TABLE MJH 


524D:8D E4 52 


63 




STA RMASK ; 


IMAGE RIGHT BIT MASK. 


5250: 


64 ; 








5250:AC 02 52 


65 




LDY IBWIDTH ; 


IMAGE WIDTH IN BYTES 


5253:8C E6 52 


66 




STY PITCH ; 


IS BITMAP PITCH 


5256:88 


67 




DEY ; 


SUBTRACT 1 TO GET 


5257:8C E7 52 


68 




STY SHFTINDX ; 


SHIFT START INDEX 


525A: 


69 ; 








525A:AD 03 52 


70 




LDA IBITS ; 


COPY IMAGE DATA ADDRESS 


525D:8D 80 52 


71 




STA PATCH 1 ; 


TO SHIFT ROUTINE PATCH1 


5260:AD 04 52 


72 




LDA IBITS + 1 




5263:8D 81 52 


73 




STA PATCH1 + 1 




5266: 


74 ; 








5266: 


75 ; 


MAIN DRAW LOOP STARTS HERE 


5266: 


76 ; 








5266:AE 06 52 


77 




LDX Y1 ; 


IMAGE TOP SCRN ROW # 


5269:BD 00 50 


78 DRAW 


LDA ROWTBL,X ; 


SCREEN ROW ADDR LO-BYTE 


526C:18 


79 




CLC 




526D:6D E2 52 


80 




ADC LBYTE ; 


+ LEFT IMAGE BYTE # 


5270:85 40 


81 




STA BASE1 ; 


TO SCRN ADDR POINTER 


5272:BD CO 50 


82 




LDA ROWTBH.X ; 


SCREEN ROW ADDR HI-BYTE 


5275:85 41 


83 




STA BASE1+1 


TO POINTER HI-BYTE 


5277:8E E8 52 


84 




STX TEMP 


SAVE CURRENT ROW # 


527A: 


85 








527A: 


86 


BILL BUDGE'S SHIFT CODE STARTS HERE. 


527A: 


87 


IT SHIFTS A ROW OF STORED BITMAP DATA INTO A 


527A: 


88 


SINGLE-LINE BUFFER, WHICH CAN THEN BE DRAWN TO 


527A: 


89 




THE SCREEN 




527A: 


90 








527A:A9 00 


91 




LDA #0 


SETUP FOR SHIFTING 


527C:AC E7 52 


92 




LDY SHFTINDX 




527F: 


93 








5280: 


94 


PATCH 1 


EQU * + 1 




527F:BE FF FF 


95 


3HIFTIT 


LDX SFFFF.Y 


GET A BYTE OF IMAGE DATA 


5284: 


96 


PATCH2 


EQU *+2 




5282:1 D 00 47 


97 


0RA 


SHIFTOUT.X 


LOOK UP SHIFTED OUT PART 


5285:99 EB 52 


98 


3TA 


BUFFER+1.Y 


AND STORE IN BUFFER 


528A: 


99 


PATCH3 


EQU * + 2 




5288:BD 00 40 


100 




LDA SHFTSTAY,X 


LOAD THE SHIFTED PART 


528B:88 


101 




DEY ; DONE WITH ROW YET? 


528C:10 F1 


102 




BPL SHIFTIT 


LOOP BACK IF NOT 


528E:8D EA 52 


103 




STA BUFFER 


STORE LAST SHIFTED PART 


5291: 


104 








5291: 


105 


ACTUAL DRAW CODE STARTS HERE. NOTE THAT THE 


5291: 


106 


RIGHTHAND AND LEFTHAND EDGE BYTES ARE TREATED 


5291: 


107 


DIFFERENTLY BECAUSE THEY MAY BE PARTIAL-BYTE 


5291: 


108 


WRITE OPERATIONS. 




5291: 


109 








5291 :AC E5 52 


110 




LDY SBWIDTH 


SHIFTED DATA BYTE WIDTH 


5294:AE E8 52 


111 




LDX TEMP 


GET BACK THE ROW # 


5297: 


112 








5297: 


113 


, DO THE RIGHTHAND IMAGE BYTE 


5297: 


114 








5297: B1 40 


115 




LDA (BASE1),Y 


; GET A SCREEN BYTE 


5299:59 EA 52 


116 




EOR BUFFER,Y 


; XOR WITH IMAGE DATA 


529C:2D E4 52 


117 




AND RMASK 


; MASK UNWRITTEN AREA 


529F:51 40 


118 




EOR (BASE1),Y 


; RESTORE SCRN AND IMAGE 


52A1:4C A7 52 


119 




JMP DRAW2 




52A4: 


120 








52A4: 


121 


; FAST LOOP TO DRAW IN-BE1 


WEEN BYTES 


52A4: 


122 








52A4:B9 EA 52 


123 


DRAW1 


LDA BUFFER.Y 


; GET AN IMAGE BYTE 


52A7:91 40 


124 


DRAW2 


STA (BASE1),Y 


; WRITE BYTE TO SCREEN 


52A9:88 


125 




DEY 


; DECREMENT COUNT 


52AA:D0 F8 


126 




BNE DRAW1 


; LOOP BACK IF NOT DONE 


52AC: 


127 








52AC: 


128 


; FINISH UP WITH LEFTHAND 


BYTE 


52AC: 


129 








52AC:B1 40 


130 


DRAW3 


LDA (BASE1),Y 


; GET A SCREEN BYTE 


52AE:59 EA 52 


131 




EOR BUFFER,Y 


; XOR WITH IMAGE BYTE 


52B1:2D E3 52 


132 




AND LMASK 


: MASK UNWANTED PART 

{continued) 



PRESHIFT-TABLE GRAPHICS 



52B4:51 40 

52B6:91 40 

52B8: 

52B8: 

52B8: , 

52B8:EC E1 52 

52BB:F0 12 

52BD: 

52BD:E8 

52BE:18 

52BF:AD 80 52 

52C2:8D E6 52 

52C5:8D 80 52 

52C8:90 9F 

52CA:EE 81 52 

52CD:B0 9 A 

52CF:AE E9 52 

52D2:60 

52D3: 

52D3: 

52D3: 

52D3:01 03 07 

52Q6:0F 1F3F 

52D9.7F 

52DA:7F 7E 7C 

52DD:78 70 50 

52E0:40 

52E1: 

52E1: 

52E1: 

52E1.00 

52E2:00 

52E3:00 

52E4:00 

52E5:00 

52E6:00 

52E7:00 

52E8:00 

52E9:00 

52EA: 



133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 





EOR 


(BASE1),Y 


; RESTORE SCRN AND IMAGE 




STA 


(BASE1),Y 


• AND WRITE TO SCREEN 


; TEST FOR LAST ROW COMPLETE 




CPX 


Y2 


WAS LAST ROW DONE 




BEQ 


EXIT 


QUIT IF SO. 


' 


INX 




MOVE TO NEXT ROW 




CLC 




ADD THE BITMAP PITCH 




LDA 


PATCH 1 


TO THE SHIFT ROUTINE 




ADC 


PITCH 


POINTER TO MOVE TO 




STA 


PATCH 1 


THE NEXT BITMAP ROW. 




BCC 


DRAW 


LOOP AGAIN IF NO CARRY 




INC 


PATCH 1*1 






BCS 


DRAW 


LOOP AGAIN, ALWAYS 


EXIT 


LDX 


XSAVE 






RTS 




EXIT HERE 


; RIGHT AND LEFT BIT-MASKS 


TABLES 



RMASKS DFB $01 1 $03 P $07,$0F,$1F,$3F I $7F 



155 LMASKS DFB $7F,$7E 1 $7C,$78 I $70,$60,$40 



PROGRAM VARIABLES 



156 

157 
158 

159 Y2 

160 LBYTE 
LMASK 
RMASK ■ 

163 SBWIDTH 

164 PITCH 

165 SHFTINDXDFB 

166 TEMP DFB 

167 XSAVE DFB 

168 BUFFER DS 



161 
162 



DFB 

DFB 
DFB 
DFB 
DFB 
DFB 












40,0 



BOTTOM Y-COORD 

LEFT BYTE # 

LEFT BIT MASK 

RIGHT BIT MASK 

SHIFTED IMAGE BYTE WIDTH 

BITMAP ROW PITCH 

BITMAP WIDTH 

TEMP STORAGE 

FOR SAVED X-REG 

SHIFTED DATA ROW BUFFER 



SUCCESSFUL-ASSEMBLY: NO ERRORS 



Listing 4: The DIV7 program creates two 256-byte tables that contain the integer 
quotient and remainder of the value nil, respectively, for n=0 to 255. The resulting 
table is saved as DIV7 TABLE. 



JLIST 



100 
110 
120 
130 
140 
150 
160 
200 
210 
220 
230 
240 
250 
300 
310 
320 
330 
340 
350 
400 
420 
500 



DIVIDE-BY-7 QUOTIENT 
AND REMAINDER TABLES 

BY GREGG WILLIAMS, 
24 APR 84 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

QUOTBGN - 16384 

REM —POINTS TO MEMORY AREA 

REM —USED TO STORE TABLE 

REM 

RMDRBGN - QUOTBGN + 256 

HOME : PRINT "CREATING DIV7 TABLE... 

FOR I - TO 255 

:QVL - INT (I / 7) 

:RVL - I - QVL * 7 

: POKE QUOTBGN + 

: POKE RMDRBGN + 

NEXT I 

PRINT CHR$ (4);"BSAVE DIV7 TABLE,A";QUOTBGN;" h L512" 

PRINT : PRINT "TABLE SAVED TO DISK" 

END . 



I.QVL 
I.RVL 



{continued) 



LISA 




The 
Desktop Junction 

Where Liaa Uaert Can 
Meet Lisa Developers 

Call (206) 325-9670 for an informational 
packet or circle number on Inquiry card. 



The Desktop Junction is a new service from 
David D. Redhed of Clear Skies Consulting. 



List is * trMtMTk of Apple Computer, Inc. 



Circle 667 on inquiry card. 



EPSON + APPLE 

Print style select prograa 
JUST 119.99 + *2 handling 
DON'T PAY MORE! 
Hanu of print options 
Brett Value! 
Cop i able for your use 
Dorks with HX t RX t FX printers 
Send check or eoney order to: 

KELLER*KELLER 

Printer Prograa 
1035 Live Oak Or 
Santa Clara, Ca 95051 
(406)984-5270 

Apple is a registered tradeaark 
of Apple Coaputer,inc. Epson is 
a registered tradeaark of Epson 
Aaerica,Inc. 



Circle 652 on Inquiry card. 



McMill 

The affordable & 
expandable 68000 
software develop- 
ment system for 
your Apple U, lie! 



Circle 695 on inquiry card. 




This ad 

is for all those 

who ever wonder 

why your 

company runs 

a United Way 

campaign. 

When it comes right down 
to it, you're probably the best rea- 
son your company has for getting 
involved with the United Way. 

%u see, they know almost 
all of the money given to the 
United Way goes back out into 
the community to help people. 

So if you, or the people you 
work with, should ever need any 
of our services, like day care, 
family counseling or health care, 
we'll be right there to help. In 
fact, there are tens of thousands 
of United Way-supported pro- 
grams and services in cities and 
towns across the country. That 
means help is nearby wherever 
you are. 

And your company knows 
that could mean the difference 
between keeping or losing a val- 
uable employee. 

That's why they give. And 
that's why they ask you to give. 
Because there may come a day 
when you need help yourself. 




United Wfay 
Thanks to you, it works, for ALL OF US. 



A Public Service of This Magazine & The Advertising Council 
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Listing 5: The Consolidate program loads the tables created by listings 1, 2, and 4, 
adds an image table, and stores the composite table in the file TABLPAK for later 

use. 



100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 HOME 



CONSOLIDATE- 
TABLES PROGRAM 

BY GREGG WILLIAMS 
23 APR 84 



200 
236 
240 
250 
260 
270 



TBLSIZ - 

REM 

D$ - CHR$ (4) 



PRINT "CREATING TABLPAK. 
32 



PRINT D$ 
PRINT D$ 
PRINT D$ 



"BLOAD PRESHIFT TABLE.A$4000' 
"BLOAD DIV7 TABLE,A$4E00" 
"BLOAD HIRES1 TABLE,DA$5000" 



—LOAD NEEDED TABLES 
—INTO MEMORY 



280 REM 
290 REM 
300 REM 
320 REM 
330 REM 
540 REM 
550 QQ$ - "5180:0D 0D 02 00 00 00 00 7C OF 7C 07 7C 03 7C 01 7C 

03 7C 07 5C OF 0C 1F 04 0E 00 04 00 00 00 00" 
560 GOSUB 63000 

570 REM —PUT IMAGE INTO MEMORY 
580 REM —USING MONITOR COMMANDS 
590 REM 
600 REM 

610 PRINT D$;"BSAVE TABLPAK, A$4000,L";4480 + TBLSIZ 
615 PRINT : PRINT "FILE SAVED TO DISK" 
620 REM 
630 END 
640 REM 

62975 REM 

62980 REM 
62985 REM 
62990 REM 
62993 REM 
62995 REM 
62997 REM 
63000 QQ$ 



-FAMOUS S. H. LAM 
-MONITOR ROUTINE FOR 
-EXECUTING MONITOR 
-COMMANDS FROM BASIC 



QQ$ + " ND9C6G" 
63010 FOR GQ = 1 TO LEN (CMS): POKE 511 

( MID$(QQ$,QQ,1)): NEXT 
63020 POKE 72,0: CALL - 144 
63030 RETURN 



+ QQ,128 + ASC 



Table 1: Format for the image table. The BASIC demonstration program of listing 6 
expects an image table in the format given by this table. Listing 3 expects this table 
at location 5180 hexadecimal (20864 decimal), but this can be easily changed by 
changing the value stored at \Bits (location 5203 hexadecimal). 



Byte 


1 
2 
3, 4, 5.. 



Contents 



1 



(number of rows in image) — 
(number of dots in row ) — 1 
number of bytes in one row of image 
successive bytes of image, starting with upper-left corner 
and proceeding by rows 
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Listing 6: A program that demonstrates the preshift-table lookup method. This program uses joystick or paddle input to guide an arrow 
image across the high-resolution graphics screen. See text for details. 



BUDGE PRESHIFT 
GRAPHICS DEMO 

BY BILL BUDGE,; 
GREGG WILLIAMS, 
AND ROB MOORE 



INITIALIZATION 



MAIN LOOP 



IFPEEK ( - 16287) > 127 THEN 



]LIST 

100 REM 

110 REM 

120 REM 

130 REM 

140 REM 

150 REM 

160 FtEM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 GOSUB 3000 

230 REM —LOAD FILES (NEEDS 

240 REM —TO BE DONE ONLY ONCE) 

25Q REM. 

260 GOSUB 2000 

270 REM —INITIALIZE TABLES 

280 REM 

480 REM 

490 REM 

500 REM 
510 REM 
520 REM 
530 REM 

820 
535 REM —WHILE LOOP: LOOP 
540 REM —WHILE BUTTON 
550 REM —NOT PRESSED 
560 REM 

570 XVLUE = PDL (0) 
580 YVLUE - PDL(1) 
590 REM —GET JOYSTICK OR 
600 REM —PADDLE VALUES 
610 REM 

. - 1 .* DOTSMOVE ' 
(XVLUE > C2THRHI) 
* - 1 * DOTSMOVE - 
(YVLUE > C2THRHI) 
640 REM —CONVERT JOYSTICK 
650 REM —INPUT TO -1,0, OR 1 
660 REM . 
670 IF (XPSN + XINCR) > = C3XMIN AND (XPSN + XINCR) < 

C4XMAX THEN XPSN - XPSN + XINCR 
680 IF (YPSN +.YINCR) > = C5YMIN AND (YPSN + YINCR) < 

C6YMAX THEN YPSN - YPSN + YINCR 
690 REM —MODIFY X, Y POSITIONS 
700 REM —IF WITHIN BOUNDS 
703 REM 

706 POKE X1, XPSN 
708 POKE Y1, YPSN 
710 REM —POKE X & Y COORDS 
712 REM —OF IMAGE INTO 
714 REM —BYTES USED BY THE 
716 REM —CODE SUBROUTINE 
718 REM 

720 CALL CODEADDR 
730 REM —CALL MACHINE-LANG. 
740 REM —BLOCK-MOVE ROUTINE 
750 REM 
760 GOTO 530 

770 REM —END OF WHILE LOOP 
780 REM 

790 REM 

800 REM 

810 END 

820 REM —END OF PGM 

830 REM 

1940- REM 

1950 REM 



620 XINCR 
MOVE 

630 YINCR 
MOVE 



(XVLUE < C1THRLO) + DOTS 
(YVLUE < C1THRLO) + DOTS 



1960 REM 

1970 REM 

1980 REM INITIALIZATION 

1985 REM SUBROUTINE 

1990 REM 

2000 DOTSMOVE - 2 

2010 REM —MAXIMUM INCREMENT 

2020 REM —OF IMAGE 

2030 REM 

2040 XPSN - 100:YPSN * 100 

2050 REM —POSITION OF IMAGE 

2060 REM 

2070 C1THRLO = 10Q:C2THRHI * 150 

2080 REM —THRESHOLD VALUES 

2090 REM —FOR JOYSTICK INPUT 

2100 REM 

2110 C3XMIN * 5:C4XMAX * 235 

2120 C5YMIN = 5:C6YMAX = 175 

2130 REM —BOUNDARIES OF IMAGE 

2140 REM —MOVEMENT ON SCREEN 

2150 REM 

2160 CODEADDR - 21008 

2170 REM —ADDRESS OF MACHINE- 

2180 REM —LANGUAGE SUBROUTINE 

2190 REM 

2200 IROWS - 20992 

2210 IDOTS - IROWS + 1 

2220 IWIDTH - IROWS + 2 

2230 IBITS = IROWS + 3 

2240 X1 - IROWS + 5 

2250 Y1 * IROWS + 6 

2260 REM —ADDRESSES OF DATA 

2270 REM —NEEDED BY ASSBY- 

2280 REM —LANGUAGE ROUTINE 

2290 REM 

2420 POKE IROWS, PEEK (IMAGTBL) 

2430 POKE IDOTS, PEEK (IMAGTBL + 1) 

2440 POKE IWIDTH, PEEK (IMAGTBL + 2) 

2450 IP - IMAGTBL + 3 

C8IPLO - INT (IP / 256) 

C7IPHI - IP - 256 * C8IPLO 

POKE IBITS,C7IPLO / 

POKE IBITS +■ 1.C8IPHI 

REM —SETUP VALUES NEEDED 

REM —BY ASSEMBLY-LANGUAGE 

REM —ROUTINE 

REM 

HGR 

REM 

REM 

RETURN 

REM 

REM 

REM 

REM LOAD FILES 

REM SUBROUTINE 

REM 

IMAGTBL = 20864 

REM —ADDRESS OF TABLE 

REM —CONTAINING IMAGE 

REM —TO BE MOVED 

REM 

D$ - CHR$ (4) 



2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2930 
2935 
2940 
2950 
2960 
2970 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 



POKE - 16302,0 
-SWITCH TO HIRES PG1 



PRINT D$ 

PRINT D$ 

PRINT D$; 

REM 

REM 

REM 

RETURN 



'BLOAD QD.DEMO.O" 
'BLOAD TABLPAK,A$4000" 
'BLOAD IMAGE,A";IMAGTBL 

LOAD ASSBY-LANGUAGE 

ROUTINE AND TABLES 
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PRESHIFTTABLE GRAPHICS 



(continued from page A27) move the image around the high-reso- 

assembly-language routine of listing 3; lution graphics screen. This program 
it then uses joystick (or paddle) input to uses an image that has two rows of un- 
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SHIFTED-IMAGE BUFFER 
I I I I- 



DONE ONCE 
PER BYTE 



PRESHIFT 
SHIFTOUT 


TABLE 

SHIFTMEN 




























Figure 7: Moving a rectangular image. In the example subroutine of listing 3, the routine 
takes the image a line at a time, uses the preshift table to shift it, puts it in a single-line 
buffer, then transfers it to the high-resolution screen. This is only one possible subroutine 
that implements the routine in figure 6. ^^^^ 



lighted dots on every edge (it is a 10 by 
10 image centered in a 14 by 14 box). 
Because the program moves the image 
only two dots at a time, the arrow im- 
age erases itself as it moves and leaves 
no trail. 

This program, like the others, was writ- 
ten with simplicity and clarity in mind 
rather than speed or program features. 
The fact that the program moves the ar- 
row slowly across the screen is the fault 
of BASIC, not the assembly-language 
program, lb make this demo run faster, 
you can "tighten up" the main loop in 
lines 530-760 or incorporate some of 
the joystick decoding and boundary 
checking in another assembly-language 
program that, in turn, calls listing 3. 

The preshift-table lookup method is a 
compromise between utility and ease of 
comprehension. Although this tech- 
nique is not as fast as the preshifted- 
shapes method often used for anima- 
tion, it is a general-purpose method that 
will probably find a number of uses. ■ 



WINGS BONDS DON'T COME 
THE WRONG SIZE OR COLOI 





Give Bonds 
for Christmas. 
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